home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr44 / 2m30src.zip / 2MFBMAKE.BAS < prev    next >
BASIC Source File  |  1995-03-06  |  588b  |  22 lines
  1. 100 '
  2. 110 ' Convertir 2MFBOOT.BIN a listado ensamblador con DefineByte
  3. 120 '
  4. 130 PRINT
  5. 140 PRINT "QBASIC/GWBASIC CONVIRTIENDO 2MFBOOT.BIN EN 2MFBOOT.DB"
  6. 150 PRINT "QBASIC/GWBASIC TRANSLATING 2MFBOOT.BIN INTO 2MFBOOT.DB"
  7. 160 PRINT
  8. 170 DEFINT I,J
  9. 180 OPEN "R",#1,"2mfboot.bin",1
  10. 190 OPEN "2mfboot.db" FOR OUTPUT AS #2
  11. 200 FIELD #1,1 AS A$
  12. 210 FOR I=0 TO 319
  13. 220   PRINT #2,"               DB    ";
  14. 230   FOR J=0 TO 7
  15. 240     GET #1
  16. 250     PRINT #2,USING"###";ASC(A$);
  17. 260     IF J<>7 THEN PRINT #2,", "; ELSE PRINT #2,
  18. 270   NEXT
  19. 280 NEXT
  20. 290 CLOSE #1, #2
  21. 300 SYSTEM
  22.